CU Amiga Super CD-ROM 6/CU Amiga Magazine's Super CD-ROM 06 (1996)(EMAP Images)(GB)(Track 1 of 4)[!][issue 1997-01].iso/cucd/magazine/pd_utils/agassm/rexx/changedisplaytime,t.agassm

Text File | 1996-03-30 | 1KB | 59 lines

/* AGASSM - Script to set display time */
/* © 1995 Paul Vernon */

Port = Show('P','AGASSM')
If Port = 0 then do
  Exit
  End

ADDRESS COMMAND 'C:RequestFile > T:AGASSM-Temp TITLE "AGASSM - Specify pattern" NOICONS'

succ = Open(file,'T:AGASSM-Temp','r')
If succ = 0 then do
  Exit
  End
String = ReadLn(file)
succ = Close(file)

ADDRESS COMMAND 'C:Delete T:AGASSM-Temp QUIET'

Select
  When String == '' then
    Exit
  When String = '""' then
    String = '"#?"'
  Otherwise
End

String = Left(String,Length(String)-1)
String = Right(String,Length(String)-1)
TestString = Right(String,1)

Select
  When TestString == '/' then
    ArgumentA=String'#?'
  When TestString == ':' then
    ArgumentA=String'#?'
  Otherwise
    ArgumentA=String
End

succ = Close('STDOUT')
succ = Open('STDOUT','CON:2/50/636/35/AGASSM - Input time/CLOSE','w')

Say 'Press RETURN to cancel'
Say 'Pattern :-' ArgumentA
Say 'Please set time delay (0.0 - 100.0) :-'

ArgumentB = ReadCh('STDOUT',5)
succ = Close('STDOUT')

If ArgumentB = '' then do
  Exit
  End

ADDRESS 'AGASSM'
SETDISPTIME ArgumentA ArgumentB

Exit